#!/usr/bin/perl

use XML::XPath;
use XML::XPath::XMLParser;
use XML::Simple;

my $xp = XML::XPath->new(filename => 'clasificacioneq.xml');
   
my $nodeset = $xp->find('//equipo[position() <= 4]/nombre');
my @equiposch = $nodeset->get_nodelist;
my $nodeset2 = $xp->find('//equipo[position() <= 4]/puntos');
my @puntosch = $nodeset2->get_nodelist;

my $nodeset3 = $xp->find('//equipo[position() > 17]/nombre');
my @equipos2a = $nodeset3->get_nodelist;
my $nodeset4 = $xp->find('//equipo[position() > 17]/puntos');
my @puntos2a = $nodeset4->get_nodelist;

print "Los equipos que jugarán en Champions son:\n";
print "-----------------------------------------\n";
for (my $i = 1; $i <= 4; $i++) {
    print $i."º ".$equiposch[$i-1]->string_value." con ".$puntosch[$i-1]->string_value." puntos\n";
}
print "\n";

print "Los equipos que descienden a segunda división son:\n";
print "--------------------------------------------------\n";
for (my $i = 0; $i < 3; $i++) {
    print $equipos2a[$i]->string_value." con ".$puntos2a[$i]->string_value." puntos\n";
}
print "\n";
